-- background: 13488 from stack: in
-- bmap block id: 19499
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  global identification, ages, plotdata
  push recent card
  put "m" into field "sexes"
  if plotdata is "true" then
    click at 160,77
    get line ages of field "age" in card identification
    put (it*12) into months
    put trunc (it) into field "years"
    put round (months mod 12) into field "months"
    get line ages of field "weight" in card identification
    put it into field "height"
    click at 107,316
  end if
  put "false" into plotdata
end openBackground

function frameheight
return 265
end frameheight

function framewidth
return 150
end framewidth

function framebottom
return 295
end framebottom

function frameleft
return 258
end frameleft



-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=308 right=336 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=230 top=311 right=336 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=39 top=306 right=333 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Patterns
----- HyperTalk script -----
on mouseUp
  go to card id 5522
end mouseUp




-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=3 top=307 right=336 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=85 top=306 right=333 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: plot
----- HyperTalk script -----
on mouseUp
  global identification, ages
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp

  reset paint
  choose rect tool
  set lineSize to 1
  set filled to true

  put frameLeft() into horiz
  set cursor to 4 -- watchCursor
  put identification into field "label"
  repeat with i = 1 to ages
    put frameBottom() into yaxis
    get line i of field "age" in card identification
    put it into years
    put round(years*13.6) into yearsplot
    get line i of field "weight" in card identification
    put it into weight1
    put round((weight1)*2.7) into weightplot
    if it is not empty then
      add horiz to yearsplot
      subtract weightplot from yaxis
      set pattern to 12
      drawPlot yearsplot,yaxis
    end if
  end repeat
  reset paint
  choose browse tool
  set userLevel to saveLevel
end mouseUp






-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=141 top=73 right=91 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: clear
----- HyperTalk script -----
on mouseUp
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp
  clearScreen
  reset paint
  choose browse tool
  set userLevel to saveLevel
  put empty into field "label"
end mouseUp



-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=271 top=24 right=38 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: label


-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=33 top=37 right=53 bottom=66
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: years


-- part 10 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=74 top=37 right=53 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: months


-- part 11 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=137 top=37 right=53 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: sexes


-- part 12 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=51 top=64 right=80 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: height


-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=72 top=12 right=30 bottom=145
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quickplot
----- HyperTalk script -----
on mouseUp
  put field "years" into years
  put field "months" into months
  put field "height" into height
  divide months by 12
  add months to years
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp
  reset paint
  choose rect tool
  set lineSize to 1
  set filled to true
  put frameLeft() into horiz
  put frameBottom() into yaxis
  set cursor to 4 -- watchCursor
  put round(years*13.6) into yearsplot
  put round((height)*2.7) into heightplot
  add horiz to yearsplot
  subtract heightplot from yaxis
  set pattern to 12
  drawPlot yearsplot,yaxis
  reset paint
  choose browse tool
  set userLevel to saveLevel

end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=261 top=311 right=336 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=421 top=245 right=285 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  global plotdata
  put "true" into plotdata
  go to card id 21402
end mouseUp